Set Snego$Dir <Obey$Dir>
CDir <Snego$Dir>.DataDir
Set Data$Dir <Snego$Dir>.DataDir
Filer_OpenDir <Data$Dir>
Copy <Snego$Dir>.SpriteHead <Data$Dir>.~sprite~ ~C ~V F
SetType <Data$Dir>.~sprite~ Sprite
| Set PGP/non-PGP byte, exactly as in !Stego:
IF "<PGPPATH>"="" THEN Run <Snego$Dir>.!Run1a ELSE Run <Snego$Dir>.!Run1b
| Generate dummy msg:
Run <Snego$Dir>.!Run2
| Generate random pass phrase & use PGP:
IF "<PGPPATH>"<>"" THEN Run <Snego$Dir>.!Run3
| Rename output to use as input to !Run4, coded as in !Stego:
IF "<PGPPATH>"<>"" THEN Rename <Data$Dir>.PGPmessage <Data$Dir>.dummy
| Encode in sprite, exactly as in !Stego:
Run <Snego$Dir>.!Run4
